home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
dfue
/
avmnfax
/
rexx
/
settfaxvars.avm
< prev
next >
Wrap
Text File
|
1995-03-09
|
1KB
|
58 lines
/*--------------------------------------------------------------*/
/*reading fax settings and writing them into some vars*/
faxprogram = upper(getclip('AVMFaxProgram'))
if faxprogram ~= 'TRAPFAX' then exit
call open('cservcfg', 'avm:servers.cfg', 'r')
do forever
cfaxidl = readln('cservcfg')
equpos = index(cfaxidl,'=')
if equpos > 0 then cfaxidh = left(cfaxidl, (equpos - 1))
clength = length(cfaxidl)
clength = clength - equpos
cfaxid = right(cfaxidl, clength)
if eof('cservcfg') then break
if cfaxidh = 'faxid' then
do
address command 'sys:rexxc/rxset TFaxID '|| cfaxid
end
else
if cfaxidh = 'faxCapability' then
do
address command 'sys:rexxc/rxset TFaxCap '|| cfaxid
end
else
if cfaxidh = 'faxsetup1' then
do
address command 'sys:rexxc/rxset TFaxStp1 '|| cfaxid
end
else
if cfaxidh = 'faxsetup2' then
do
address command 'sys:rexxc/rxset TFaxStp2 '|| cfaxid
end
else
if cfaxidh = 'faxsetup3' then
do
address command 'sys:rexxc/rxset TFaxStp3 '|| cfaxid
end
else
if cfaxidh = 'faxsetup4' then
do
address command 'sys:rexxc/rxset TFaxStp4 '|| cfaxid
end
else
if cfaxidh = 'faxsetup5' then
do
address command 'sys:rexxc/rxset TFaxStp5 '|| cfaxid
end
end
call close('cservcfg')
/*--------------------------------------------------------------*/